unit globaldatos;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, VersionSupport;

function GetVersion: String;
procedure SetVersion();

var
  Version : String;
implementation
function GetVersion: String;
Begin
  Result := Version;
end;

procedure SetVersion();
Begin
  Version := '0.1.3.1';
end;

end.

